<script>on mouseUpif freeSize of this stack > 10000 then doMenu "compact stack"close window (short name of this stack)end mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>7</left>
<top>49</top>
<right>538</right>
<bottom>292</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>subList</name>
<script>on mouseUpeditLineend mouseUpon editLineif enabled of bg btn id 35 thenanswer "Save changed before continue to edit other record?" with "Don't Save" or "Save"if it = "Save" thensend updateListSub to bg btn id 35end ifend ifif visible of bg fld "subName" = false then return ""global gTELineput word 2 of selectedLine(bg fld id 14) into gTELineif gTELine = "" or gTELine = 0 then return ""global gListAddr,gListDetail-- assignEdit gTELine-- put line theLine of bg fld "subList" into tsetDeli tabput line gTELine of gListAddr into bg fld "subAddress"put item 4 of line gTELine of gListDetail into bg fld "password"get item 3 of line gTELine of gListDetailset enabled of bg btn id 19 to trueif it = "C" thenset hilite of bg btn id 19 to trueelseset hilite of bg btn id 19 to falseend ifput item 2 of line gTELine of gListDetail into bg fld "subDate"put item 1 of line gTELine of gListDetail into bg fld "subName"setDeli restoreset enabled of bg btn id 35 to false-- click at the loc of bg fld "subAddress"end editLine</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>7</left>
<top>344</top>
<right>40</right>
<bottom>389</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3430</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New</name>
<script>on mouseUpglobal gCurListappendListSub gCurList,"[UserName]@[Domain]","[Full User Name]","",""loadListSub gCurList,"ListDetail"loadListSub gCurList,"ListAddr"displayScreenselect last line of bg fld "subList"send editLine to bg fld "subList"set scroll of bg fld "subList" to (number of lines of bg fld "subList" * 12)put number of lines of gListAddr into bg fld "numOfSub"end mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>44</left>
<top>344</top>
<right>78</right>
<bottom>389</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21053</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete</name>
<script>on mouseUpglobal gListAddr,gListDetail,gCurListput word 2 of selectedLine(bg fld "subList") into tDelif tDel = 0 then return ""answer "Are you sure you want to delete the selected record?" & return &ﾂｬ"(Cannot Undo)" with "Cancel" or "Delete"if it = "Cancel" then return ""delete line tDel of gListAddrdelete line tDel of gListDetailsaveListSub gCurListput number of lines of gListAddr into bg fld "numOfSub"displayScreenend mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>316</left>
<top>312</top>
<right>387</right>
<bottom>324</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Concealed</name>
<script>on mouseUpsend editSub to bg btn id 35end mouseUp</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>7</left>
<top>294</top>
<right>230</right>
<bottom>310</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>subAddress</name>
<script>on closeFieldput omitSpace(me) into mesend editSub to bg btn id 35end closeField</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>7</left>
<top>31</top>
<right>155</right>
<bottom>46</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>40</titleWidth>
<selectedLines>
<integer>1</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Record</name>
<script>on mouseUp-- selectView word 1 of selectedText(me)displayScreenend mouseUpon selectView modeif mode = "All" theneditField trueelseeditField falseend ifend selectViewon editField modeput "subAddress,subName,subDate" into bgFldput "16,17,19" into bgBtnif mode = "" then put true into moderepeat with k = 1 to number of items of bgFldput "" into bg fld (item k of bgFld)set lockText of bg fld (item k of bgFld) to (not mode)set visible of bg fld (item k of bgFld) to modeend repeatrepeat with k = 1 to number of items of bgBtnset enabled of bg btn id (item k of bgBtn) to modeend repeatend editField</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>232</left>
<top>294</top>
<right>522</right>
<bottom>310</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>subName</name>
<script>on closeFieldsend editSub to bg btn id 35end closeField</script>
<script>on closeFieldput omitSpace(me) into meput me into tconvert t to secondsconvert t to dateput t into mesend editSub to bg btn id 35end closeField</script>
<script>on mouseUpglobal gLastFindStrask "Type in any text to find..." with gLastFindStrif it = "" then return ""put it into gLastFindStrfind gLastFindStr in bg fld "subList"if the result = "Not found" thenanswer "The text '" & gLastFindStr & "' not found."end ifend mouseUp</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>344</top>
<right>131</right>
<bottom>389</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21052</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete All</name>
<script>on mouseUpbeepanswer "Are you sure you want to clear all?" & return &ﾂｬ"(Cannot Undo)" with "Clear" or "Cancel"if it = "Cancel" then return ""global gListAddr,gListDetail,gCurListput "" into gListAddrput "" into gListDetailsaveListSub gCurListdisplayScreenend mouseUp</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>149</left>
<top>344</top>
<right>193</right>
<bottom>389</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>-6</titleWidth>
<icon>-6079</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save</name>
<script>on mouseUpupdateListSubend mouseUpon editSub-- global gEditListSubMode-- put true into gEditListSubModeset enabled of bg btn id 35 to trueglobal gCurRecput word 2 of selectedLine(bg fld "subList") into gCurRecend editSubon updateListSubglobal gListAddr,gListDetail,gCurList,gListPath,gTELine-- put word 2 of selectedLine(bg fld "subList") into curRecput gTELine into curRecsetDeli tabput bg fld "subAddress" into line curRec of gListAddrput bg fld "subName" into item 1 of line curRec of gListDetailput bg fld "subDate" into item 2 of line curRec of gListDetailif hilite of bg btn id 19 = true thenput "C" into strelseput "N" into strend ifput str into item 3 of line curRec of gListDetailput bg fld "password" into item 4 of line curRec of gListDetailsetDeli restoresaveListSub gCurListdisplayScreenset enabled of bg btn id 35 to falseend updateListSub</script>
<script>on doMenu whatif what = "New Card" or what = "New List" thensend "mouseUp" to bg btn id 16elsepass doMenuend ifend doMenuon keyDown whatif charToNum(what) = 3 thenset hilite of bg btn id 7 to truesend mouseUp to bg btn id 7elsepass keyDownend ifend keyDown-- on tidy-- -- global gTELine-- -- put bg fld id 15 into line gTELine of bg fld id 14-- put bg fld "subList" into temp-- repeat with k = 1 to number of lines of temp-- if line k of temp = "" then-- delete line k of temp-- end if-- end repeat-- put temp into bg fld "subList"-- end tidyfunction omitSpace theTextrepeat--if offset(" ",theText) 竕 0 thenget offset(" ",theText)if it 竕 0 thendelete char offset(" ",theText) of theTextelseexit repeatend ifend repeatreturn theTextend omitSpaceon displayScreen-- update the screen according to 3 spec fieldput word 1 of selectedText(bg btn "record") into recSpecput word 1 of selectedText(bg btn "sort") into sortSpecput selectedText(bg btn "Field") into fldSpecglobal gListAddr,gListDetailput gListAddr into subAddrput gListDetail into subDetailset cursor to busysetDeli tabif recSpec 竕 "All" thenif recSpec = "Concealed" then put "C" into rCharif recSpec = "Non-concealed" then put "N" into rCharrepeat with k = number of lines of subDetail down to 1if item 3 of line k of subDetail 竕 rChar thendelete line k of subDetaildelete line k of subAddrend ifend repeatend ifset cursor to busyput "" into tif fldSpec = "All" thenrepeat with k = 1 to number of lines of subDetailput line k of subAddr & tab & line k of subDetail into line k of tend repeatelse if fldSpec = "Address Only" thenput subAddr into telse if fldSpec = "Name Only" thenrepeat with k = 1 to number of lines of subDetailput item 1 of line k of subDetail into line k of tend repeatelse if fldSpec = "Address & Name" thenrepeat with k = 1 to number of lines of subDetailput line k of SubAddr & tab & ﾂｬitem 1 of line k of subDetail into line k of tend repeatelse if fldSpec = "Date & Address" thenrepeat with k = 1 to number of lines of subDetailget line k of subDetailput item 2 of it & tab & item 1 of it into line k of tend repeatend ifsetDeli restoreif sortSpec = "Ascending" thensort t ascendingelse if sortSpec = "Descending" thensort t descendingend ifif length of t < 30100 thenput t into bg fld "subList"if sortSpec = "none" and recSpec = "all" theneditField trueelseeditField falseend ifelseput "** Records too large to display **" & return & return & ﾂｬ"1. To edit records, try use 'Address Only' for field." & return & ﾂｬ"2. To view all records detail, export records to a file and use other software to open." into bg fld "subList"editField falseend ifend displayScreenon editField modeput "subAddress,subName,subDate,password" into bgFldput "16,17,19" into bgBtnif mode = "" then put true into moderepeat with k = 1 to number of items of bgFldput "" into bg fld (item k of bgFld)set lockText of bg fld (item k of bgFld) to (not mode)set visible of bg fld (item k of bgFld) to modeend repeatrepeat with k = 1 to number of items of bgBtnset enabled of bg btn id (item k of bgBtn) to modeend repeatend editField</script>
